說實在的用上一個方式 for迴圈真的是用了好一陣子

自從搞懂apply家族後才

豁然開朗阿!!!

從來沒想過可以直接走捷徑

以下介紹第三種讀檔方式

首先一樣要找到檔案

file_which = list.files("C:\\Users\\sam\\Desktop\\役男\\")

接下來藉由函數 lapply

on_my_god = lapply(file_which, function(X)data.table::fread(paste0("C:\\Users\\sam\\Desktop\\役男\\",X)))

結束

讀檔就是這麼輕鬆寫意

但你以為這樣就結束了?

沒有發現現在的資料型態是 list() 嗎?

list確實在某些情況下是好用的

所以我們來處理一下list

首先我們點開資料集 會發現這些資料集沒有名稱(Name)

[[4]]
年度 梯次 替代役役男訓練人數
1:   97   56              2,205
2:   97   57              1,883

所以我們先命名

names(on_my_god) = file_which

$`替代役役男訓練人數統計表+97年.csv`
年度 梯次 替代役役男訓練人數
1:   97   56              2,205

命名完成後 增加辨別度

處理資料方便多了呢!